home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution3.25
< prev
next >
Wrap
Text File
|
2007-02-28
|
413b
|
18 lines
0010 //RANDOMIZE // NOT NEEDED WITH CBM COMAL
0020 DIM WORD$ OF 3, CH1$ OF 1, CH2$ OF 1, CH3$ OF 1
0030 SUM:=0
0040 FOR EX:=1 TO 30 DO
0050 COUNT:=0
0060 REPEAT
0070 CH1$:=CHR$(RND(65,67))
0080 CH2$:=CHR$(RND(65,67))
0090 CH3$:=CHR$(RND(65,67))
0100 WORD$:=CH1$+CH2$+CH3$
0110 PRINT WORD$;" ";
0120 COUNT:=COUNT+1
0130 UNTIL WORD$="CAB"
0140 SUM:=SUM+COUNT
0150 ENDFOR EX
0160 AVERAGE:=SUM/30
0170 PRINT AVERAGE